<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	include("../commons/clases.php");
	include("../commons/www.php");
	include(Accion . "ResultadoBalanceIngresosGastos.php");

	Interfaz::Cabecera(_("Resultado De") . " " . _("Ingresos Y Gastos"));

	Interfaz::AbrirCuerpo(FALSE);

if ($exito) {
	if ($abrirFichero)
		Interfaz::AbrirFichero($enlace);

	Interfaz::Botones ();
	Interfaz::Formulario (Pagina. "ResultadosBalanceIngresosGastos.php");
	Interfaz::BotonNavegacion (_("Volver"), Pagina. "CriteriosBalanceIngresosGastos.php", "Volver");

	Interfaz::TipoDeFichero('Excel');
	Interfaz::BotonDeEnvio(_("Imprimir"));

	Interfaz::CerrarBotones ();
	Interfaz::Enviar(Interfaz::Datos());
	Interfaz::CerrarFormulario ();
	
	Interfaz::Formulario (Pagina. "CriteriosBalanceIngresosGastos.php", "Volver");
	Interfaz::Enviar (Interfaz::DatosRecordados());
	Interfaz::CerrarFormulario ();

	Interfaz::CabeceraBalanceSumasSaldos ($cabecera,$detallesCabecera);

	$acumuladoDebe = 0;
	$acumuladoHaber = 0;
	$acumuladoSaldoDebe = 0;
	$acumuladoSaldoHaber = 0;

	// PINTAR INGRESOS
	foreach ($cuentasBalanceIngresos as $cuenta => $datosCuenta) {
		if (isset($Balancecuentas))
			Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasIngresos[$cuenta], FALSE, 
				$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
		if (isset($Balancesubcuentas) && isset($subCuentasBalanceIngresos[$cuenta]))
			foreach ($subCuentasBalanceIngresos[$cuenta] as $subcuenta => $datosSubcuenta) {
				Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasIngresos[$subcuenta], FALSE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			}
	}
	$acumuladoIngresosDebe = $acumuladoDebe;
	$acumuladoIngresosHaber = $acumuladoHaber;
	$acumuladoIngresosSaldoDebe = $acumuladoSaldoDebe;
	$acumuladoIngresosSaldoHaber = $acumuladoSaldoHaber;

	Interfaz::CierreBalanceIngresosGastos ($acumuladoIngresosDebe, $acumuladoIngresosHaber, $acumuladoIngresosSaldoDebe, 
		$acumuladoIngresosSaldoHaber, Ingresos, FALSE);

	// PINTAR GASTOS
	foreach ($cuentasBalanceGastos as $cuenta => $datosCuenta) {
		if (isset($Balancecuentas))
			Interfaz::FilaBalanceSumasSaldos($datosCuenta,$detallesCuentasGastos[$cuenta], FALSE, 
				$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
		if (isset($Balancesubcuentas) && isset($subCuentasBalanceGastos[$cuenta]))
			foreach ($subCuentasBalanceGastos[$cuenta] as $subcuenta => $datosSubcuenta) {
				Interfaz::FilaBalanceSumasSaldos($datosSubcuenta, $detallesSubcuentasGastos[$subcuenta], FALSE, 
					$acumuladoDebe, $acumuladoHaber, $acumuladoSaldoDebe, $acumuladoSaldoHaber);
			}
	}

	$acumuladoGastosDebe = $acumuladoDebe - $acumuladoIngresosDebe;
	$acumuladoGastosHaber = $acumuladoHaber - $acumuladoIngresosHaber;
	$acumuladoGastosSaldoDebe = $acumuladoSaldoDebe - $acumuladoIngresosSaldoDebe;
	$acumuladoGastosSaldoHaber = $acumuladoSaldoHaber - $acumuladoIngresosSaldoHaber;

	Interfaz::CierreBalanceIngresosGastos ($acumuladoGastosDebe, $acumuladoGastosHaber, 
		$acumuladoGastosSaldoDebe, $acumuladoGastosSaldoHaber, Gastos, FALSE);

	$totalBalanceSaldoDebe = $acumuladoGastosSaldoDebe + $acumuladoIngresosSaldoDebe;
	$totalBalanceSaldoHaber = $acumuladoGastosSaldoHaber + $acumuladoIngresosSaldoHaber;

	Interfaz::TotalBalanceIngresosGastos($totalBalanceSaldoDebe, $totalBalanceSaldoHaber);

}
else {
	Interfaz::Formulario (Pagina. "CriteriosBalanceIngresosGastos.php", "Volver");
	Interfaz::Botones ();
	Interfaz::Enviar (Interfaz::DatosRecordados());
	Interfaz::BotonDeEnvio(_("Volver"));
	Interfaz::CerrarFormulario ();
	Interfaz::CerrarBotones ();

	$error = Interfaz::Error();	
	echo _("HAY ERROR") . ": " . _($error);

}
	Interfaz::Fin();
?>